Top 10k strings from Dix Mille (1984)(CCS)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   6 ".1",x+z*plr:
   2 y,x;"Press any key for the next page.":
   2 x,a+r;y+r/e:
   2 l(s(plr)):
   2 h(s(plr)):
   2 f+y,b+b;"Bonus score ";d*e*cc:
   2 "23")=q(plr,
   2 "14",y;p$(plr,y
   2 "13")=q(plr,
   1 |d||<d|`0|||
   1 |`dd0f04`d
   1 zx=(p$(plr,
   1 z,e+b*n;n;
   1 z,e+b*n;n:
   1 z*n+z,e+b*r;q(r,n+f+f):
   1 y,y;"Dice":
   1 y,x;"Press any key for the menu.":
   1 y,f;"than 3 dice at once.":
   1 y,f;"scoring combination!":
   1 y,f;"I have scored ";sb+s(plr):
   1 y,e;"You have scored ";sb+s(plr):
   1 y,b;"8 letters maximum please.":
   1 y,b+b;"or t for THROW":
   1 y,b+b;"NOT ACCEPTABLE": 
   1 y,b+b;" between 1 and 6.":
   1 y,b+b;" at this point. "
   1 y,b+b;"  FOUR TWOS!  ":
   1 y,b+b;"   numbers.   ":
   1 y,b*b;"Player":
   1 y+f,e+e;" GAME OVER ":
   1 x,x,f+f,e,40
   1 x,f;"Please take no more ";
   1 x,b;"That was not a 1 or a 5.":
   1 x,b;"Sorry,  name is too long;";
   1 x,b;"Number of players must be";
   1 x,a;"You must take scoring dice";
   1 x,a;"Press and enter p for PASS";
   1 x,a;"  or enter scoring dice   ";
   1 x,a*a;"That was not a";
   1 w$=P$(plr,
   1 sb=sb+cc*z+((D(
   1 sb=sb+(sum=z)*z*cc+(sum=f)*
   1 sb=sb+((sum+sc)=f+y)*
   1 sb<(a*cc+rr/b+pb))
   1 s(r);s(r):
   1 s(plr)=s(plr)+sb:
   1 q=q+(q>x):
   1 q(plr,f+y)=q(plr,f+y)+dice:
   1 q(plr,f+f)=q(plr,f+f)+y:
   1 q(plr,f+e)=q(plr,f+e)+y:
   1 q(plr,e+e)=q(plr,e+e)+y:
   1 q(plr,b*f)=q(plr,b*f)+(sum=f)+z*(sum=z):
   1 q(plr,b*f)=q(plr,b*f)+(sum+sc=e+f)+z*(sum+sc=e+f):
   1 q(plr,b*b+D(
   1 q(plr,b*b)=q(plr,b*b)+y:
   1 q(plr,a*a)=q(plr,a*a)+y:
   1 q(plr,D(r))=q(plr,D(r))+y:
   1 q(plays,b*f):
   1 q$="ZEDX":
   1 plr=(plr<plays)*plr+y:
   1 pb=((sb+s(plr))<sm)*(sm-(sb+s(plr))*(sm>
   1 n=n+(dice=y
   1 n+z,e+b*r;q(r,n);
   1 n+a*a,e+b*r;q(r,n+b*b);
   1 n+a*a,b;n:
   1 m$=a);"I shall take"
   1 m$)=y)*cc+d*e*cc*(n>x):
   1 m$)=e))=q(plr,
   1 m$(z)=m$(a)
   1 m$(y)=m$(z)
   1 m$(y)=m$(a)
   1 m$(y))=y)*
   1 m$(y))*cc+(D(
   1 m$(y)))=q(plr,b*b+D(
   1 m$(y)))+y:
   1 l(r)=l(r+y):
   1 l(plr));".";
   1 l(plr));"."
   1 l(plr));" ";
   1 l(plays)=ll:
   1 h(r);h(r);
   1 h(plr)=h(plr)*(sb
   1 h(plr))+sb*(sb>h(plr)):
   1 f,e;"Press the number of";
   1 f,a*a-y;" STOP THE TAPE ":
   1 f+y,f;"You lose your score.";
   1 f+y,f;"Very good. You have";
   1 f+y,f;"Sorry! You lose all";
   1 f+y,f;"I lose all my score!":
   1 f+y,f+y;"You may throw,pass";
   1 f+y,f+y;"Very good. I have";
   1 f+y,f+y;"Too bad, no score.":
   1 f+y,f+y;"Number of players";
   1 f+y,f+y;"I've lost my score.":
   1 f+y,f+y;"I must throw again.":
   1 f+y,f+y;"Good! Three pairs.":
   1 f+y,e;"You must throw again.":
   1 f+y,e;"Now tell me your names":
   1 f+y,e;"I get 1500 and 6 dice.":
   1 f+y,e+f;"I'll pass.":
   1 f+y,e+e;"I'll throw.":
   1 f+y,b+b;"You score 2000."
   1 f+y,b+b;"You get 3000 and";
   1 f+y,b+b;"You get 1500 and";
   1 f+y,b+b;"Good! Six ones.":
   1 f+y,a*a;"your choice.";
   1 f+y,a*a;"Throw or pass.":
   1 f+y,a*a;"It's my turn.":
   1 f+y,a*a;"I score 2000.":
   1 f+y,a*a;"I get 3000 and";
   1 f+f,y;"Player";
   1 f+f,f;" MY SCORE WAS ";s(plr);" ":
   1 f+f,a;"2.   New game.";
   1 f+f,a*a;" YOU HAVE WON ";
   1 e+e,z;"The second player may now","either throw, and risk losing","his score of 1100, or pass and","have 1100 added to his total."
   1 e+e,z;"3*";
   1 e+e,y;"The first player may now pass","and 6 dice are thrown for the","next player."
   1 e+e,y;"Suppose the first player throws6 dice.":
   1 e+e,e+f;"Score"
   1 e+e,b;"d";
   1 e+e,a;"1.   Short demonstration.";
   1 dice=dice-
   1 dd|d0dd`0||d
   1 ddd|0~00d|
   1 d`dd0f00|d
   1 d=d+(dice=y
   1 d0Ldddd`0d
   1 b+b,z*e;"your score."
   1 b+b,f+f;"please.":
   1 b+b,f+f;"6 dice."
   1 b+b,e+e;" I HAVE WON ";
   1 b+b,b;"c";
   1 b+b,b+b;" CONGRATULATIONS ";
   1 b+b,a*a;"Press any key.":
   1 b+b)=p$(r+y,
   1 b*e,z;"4*2"
   1 b*e,e+b*r;q(r,e+e):
   1 b*e,a;"Press any key for the menu.":
   1 b*b,x;"The remaining dice may now be","thrown again.":
   1 b*b,b;"Press any key to return";
   1 b*b,a;"4.   Statistics."
   1 b);"Your move ";P$(plr,y
   1 a*f,z;"1-6";
   1 a*f,z;" PRESS ANY KEY FOR THE MENU " 
   1 a*f,e+b*r;q(r,f+f);
   1 a*e,e;" YOUR SCORE WAS ";s(plr);" "
   1 a*e+y,a;"c-Total number of throws";
   1 a*a,y;" Only available after a game. ";
   1 `d||0d|d0`0d|
   1 `ddd0dL|0d0dL
   1 `ddd0dLd0`0dL
   1 ``|d0~0<||
   1 `0Ld`dd|0d
   1 P$ (plays,b+b):
   1 HIJNOPSWhkotv
   1 ;"Player";
   1 ;"Highest";
   1 ;"CASES COMPUTER  SIMULATIONS LTD ":
   1 ;" PUBLISHED BY ";
   1 ;" PRESS ANY KEY TO CONTINUE."
   1 ;" COPYRIGHT WARNING "
   1 ,z;"Dice 1 and 3 may now be taken","for an additional score of 200.":
   1 ,x,x,x,e,40
   1 ,x,e*e,cc*z,f,x,a*e,20
   1 ,e,x,x,x,e,40
   1 ,cc*z,x,x,e,20
   1 );" and ";
   1 )))=e+z)*cc/z
   1 (z*cc+rr/b+pb))
   1 (z*cc+rr/a+pb))
   1 (x/c8)*c8)*(
   1 (sum+sc=f+e))
   1 (sb<(a*cc+rr+pb)))
   1 (sb+s(plr))>
   1 (sb+s(plr))
   1 (sb+s(plr)
   1 (l(plr)/z)-(l(plr)
   1 (f*cc+e*rr+pb))
   1 (d*cc+rr+pb)))
   1 ((sum+sc=f+y)
   1 $(+,-0489:;DEGHLPTXdfhlptxyz
   1 "will  rigorously  protect  the  ":
   1 "software is strictly prohibited."
   1 "hiring,  and lending  of this   ":
   1 "copyright, of DIX MILLE.
   1 "Please note unauthorised copying":
   1 "9999");s(plr):
   1 "999")-(s(plr)>
   1 "9",f+y;" A GAME OF DICE ":
   1 "61564",plr:
   1 "61535",plays:
   1 "59869",zx
   1 "59869"+r)
   1 "50")-(s(plr)>
   1 "30"-l(plr))/z;" ";p$(plr,
   1 "27"-(s(plr)>
   1 "250"+((sum+sc)=f+e)*
   1 "24";"Total":
   1 "23606",x:
   1 "23")+z*(sum+sc=e+f)+(sum+sc=f+y)
   1 "23")+(sum=f)+z*(sum=e+e)
   1 "21";m$;"."
   1 "1e3"+rr))
   1 "19",y;"3prs";
   1 "19",e+b*r;q(r,9
   1 "18",a;"d-Total number of passes"
   1 "17";"Player";
   1 "17",z;"And a further 100 is scored","by taking dice 6.":
   1 "17",z;"6*1";
   1 "17",e+e;"to the menu.":
   1 "17",e+b*r;q(r,e+f);
   1 "150"+(sum=e+e)*cc:
   1 "15")=q(plr,
   1 "14";"1-6.":
   1 "14";"1-6":
   1 "14",z;"He now scores 1000 by taking","dice 1,2 and 5.":
   1 "14",y;p$(r,
   1 "14",a;"3.   Another game.";
   1 "14")=q(plr,
   1 "13";"Sorry!"
   1 "13";"MENU";
   1 "13";"6 dice.":
   1 "13";"6 dice."
   1 "13";" and ";
   1 "13",y;"a-Bonus scores : b-Lost scores";
   1 "13",y;"He scores 200 by taking the","dice numbered 1,4 and 5.":
   1 "11";" or take.":
   1 "11"-l(plr)/z);"Your turn ";P$(plr,
   1 ".3",-z*e:
   1  1984 G.W.Lewthwaite. "
   1  1983 G W LEWTHWAITE